function varargout = spyview_filterpanel(varargin)
% SPYVIEW_FILTERPANEL MATLAB code for spyview_filterpanel.fig
%      SPYVIEW_FILTERPANEL, by itself, creates a new SPYVIEW_FILTERPANEL or raises the existing
%      singleton*.
%
%      H = SPYVIEW_FILTERPANEL returns the handle to a new SPYVIEW_FILTERPANEL or the handle to
%      the existing singleton*.
%
%      SPYVIEW_FILTERPANEL('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in SPYVIEW_FILTERPANEL.M with the given input arguments.
%
%      SPYVIEW_FILTERPANEL('Property','Value',...) creates a new SPYVIEW_FILTERPANEL or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before spyview_filterpanel_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to spyview_filterpanel_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help spyview_filterpanel

% Last Modified by GUIDE v2.5 28-Mar-2012 15:39:08

% Begin initialization code - DO NOT EDIT
gui_Singleton = 0;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @spyview_filterpanel_OpeningFcn, ...
                   'gui_OutputFcn',  @spyview_filterpanel_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before spyview_filterpanel is made visible.
function spyview_filterpanel_OpeningFcn(hObject, eventdata, handles, varargin)
% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to spyview_filterpanel (see VARARGIN)

% Choose default command line output for spyview_filterpanel
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes spyview_filterpanel wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = spyview_filterpanel_OutputFcn(hObject, eventdata, handles) 
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on selection change in filters.
function filters_Callback(hObject, eventdata, handles)
% hObject    handle to filters (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
sts=get(hObject,'String');
fd=get(hObject,'UserData');
if isempty(fd)
    return;
end
fd=fd{get(hObject,'Value')};
set(handles.description,'String',fd.description);
for i=1:length(handles.param)
   % First hide everything.
   f = fields(handles.param(i));
   for j=1:length(f)
       set(handles.param(i).(f{j}),'Visible','off');
   end
   if length(fd.parameters) >= i
      if isfield(fd.parameters(i),'name')
          set(handles.param(i).text,'String',fd.parameters(i).name);
          set(handles.param(i).text,'Visible','on');
      end
      if isfield(fd.parameters(i),'min')
          set(handles.param(i).slider,'Min',fd.parameters(i).min);
      end
      if isfield(fd.parameters(i),'max')
          set(handles.param(i).slider,'Max',fd.parameters(i).max);
      end
      switch fd.parameters(i).type
          case 'bool'
              set(handles.param(i).edit,'Style','checkbox');
              set(handles.param(i).edit,'Value',fd.values{i});
              set(handles.param(i).edit,'Visible','on');
              set(handles.param(i).edit,'String','');
          case 'float'
              set(handles.param(i).edit,'Style','edit');
              set(handles.param(i).edit,'String',sprintf('%g',fd.values{i}));
              set(handles.param(i).edit,'Visible','on');
              set(handles.param(i).slider,'Value',fd.values{i});
              set(handles.param(i).slider,'Visible','on');
          case 'button'
              set(handles.param(i).edit,'Style','pushbutton');
              set(handles.param(i).edit,'Visible','on');
              set(handles.param(i).edit,'String',fd.parameters(i).name);
      end
   end
end
  set(handles.enabled,'Value',fd.enabled);
  g=guidata(hObject);
  g.activeFilter=(hObject==handles.active);
  guidata(hObject,g);


% Hints: contents = cellstr(get(hObject,'String')) returns filters contents as cell array
%        contents{get(hObject,'Value')} returns selected item from filters


% --- Executes during object creation, after setting all properties.
function filters_CreateFcn(hObject, eventdata, handles)
% hObject    handle to filters (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: listbox controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in active.
function active_Callback(hObject, eventdata, handles)
% hObject    handle to active (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = cellstr(get(hObject,'String')) returns active contents as cell array
%        contents{get(hObject,'Value')} returns selected item from active
filters_Callback(hObject, eventdata, handles);
g=guidata(hObject);
g.activeFilter=1;
guidata(hObject,g);


% --- Executes during object creation, after setting all properties.
function active_CreateFcn(hObject, eventdata, handles)
% hObject    handle to active (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: listbox controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in addbutton.
function addbutton_Callback(hObject, eventdata, handles)
% hObject    handle to addbutton (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
fd=get(handles.filters,'UserData');
fd=fd{get(handles.filters,'Value')};
afd=get(handles.active,'UserData');
afn=get(handles.active,'String');
afn=vertcat(afn, {fd.name});
afd=vertcat(afd, {fd});

set(handles.active,'UserData',afd);
set(handles.active,'String',afn);
set(handles.active,'Value',length(afd));
handles.sv.filters=afd;
f=get(handles.active,'Callback');
active_Callback(handles.active,[],handles);  % Run the callback to setup the filter.

% --- Executes on button press in delbutton.
function delbutton_Callback(hObject, eventdata, handles)
% hObject    handle to delbutton (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
afd=get(handles.active,'UserData');
afn=get(handles.active,'String');
if isempty(afd)
    return;
end
i=get(handles.active,'Value');
afn(i)=[];
afd(i)=[];
set(handles.active,'Value',min(length(afd),i));
set(handles.active,'UserData',afd);
set(handles.active,'String',afn);
handles.sv.filters=afd;

% --- Executes on button press in upbutton.
function upbutton_Callback(hObject, eventdata, handles)
% hObject    handle to upbutton (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
afd=get(handles.active,'UserData');
afn=get(handles.active,'String');
i=get(handles.active,'Value');
if length(afd) < 2 || i == 1
    return;
end
afd=afd([1:i-2, i, i-1, i+1:end]);
afn=afn([1:i-2, i, i-1, i+1:end]);
set(handles.active,'Value',i-1);
set(handles.active,'UserData',afd);
set(handles.active,'String',afn);
handles.sv.filters=afd;

% --- Executes on button press in downbutton.
function downbutton_Callback(hObject, eventdata, handles)
% hObject    handle to downbutton (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
afd=get(handles.active,'UserData');
afn=get(handles.active,'String');
i=get(handles.active,'Value');
if length(afd) < 2 || i >= length(afd)
    return;
end
afd=afd([1:i-1, i+1, i, i+2:end]);
afn=afn([1:i-2, i, i-1, i+1:end]);
set(handles.active,'Value',i-1);
set(handles.active,'UserData',afd);
set(handles.active,'String',afn);
handles.sv.filters=afd;

function update_panel(hObject,eventdata,handles)
  handles=guidata(hObject);
  sv=handles.sv;
  filters=sv.listFilters();
  for i=1:length(filters)
      fd{i}=filters{i}();
      for j=1:length(fd{i}.parameters)
          fd{i}.values{j} = fd{i}.parameters(j).default;
      end
      fn{i}=fd{i}.name;
  end
  set(handles.filters,'String',fn);
  set(handles.filters,'UserData',fd);
  
  fd=[];
  fn=[];
  for i=1:length(sv.filters)
      fn{i}=sv.filters{i}.name;
      fd{i}=sv.filters{i};
  end
  set(handles.active,'String',fn);
  set(handles.active,'UserData',fd);
  if handles.activeFilter
      filters_Callback(handles.active, [], handles)
  else
      filters_Callback(handles.filters, [], handles)
  end

  %% Callback functions for parameters
function param_CreateFcn(hObject,eventdata,handles)
  g = guidata(hObject);
  s=get(hObject,'style');
  if isfield(g,'param') && isfield(g.param(1),s) && ~isempty(g.param(1).(s))
     g.param(2:end+1)=g.param(1:end);
     f=fields(g.param(1));
     for i=1:length(f)
        g.param(1).(f{i})=[]; 
     end
  end
      
  g.param(1).(get(hObject,'style')) = hObject;
  g.activeFilter=0;
  if strcmp(get(hObject,'style'),'slider')
      addlistener(hObject,'ContinuousValueChange',get(hObject,'Callback'));
  end
  guidata(hObject,g);
  
  
function param_Callback(hObject, eventdata, handles)
        dirty=0;
        for i=1:length(handles.param)
            if (hObject == handles.param(i).edit) || (hObject == handles.param(i).slider)
                if handles.activeFilter  % Need to update the live copy in spyview
                    afd=get(handles.active,'UserData');
                    ind=get(handles.active,'Value');
                else
                    afd=get(handles.filters,'UserData');
                    ind=get(handles.filters,'Value');
                end
                
                switch get(hObject,'style')
                    case 'checkbox'
                        afd{ind}.values{i} = get(hObject,'Value');
                    case 'edit'
                        n=str2num(get(hObject,'String'));
                        afd{ind}.values{i}=n;
                        set(handles.param(i).slider,'Value',n);
                    case 'slider'
                        afd{ind}.values{i} = get(hObject,'Value');
                        set(handles.param(i).edit,'String',sprintf('%g',get(hObject,'Value')));
                    case 'pushbutton'
                        afd{ind} = afd{ind}.button(i,handles.sv,handles.activeFilter * ind);
                        dirty=1;
                        
                end
                if handles.activeFilter  % Need to update the live copy in spyview  \
                    handles.sv.filters=afd;
                    set(handles.active,'UserData',afd);
                    if dirty
                        filters_Callback(handles.active, [], handles);
                    end
                else
                    set(handles.filters,'UserData',afd);
                    if dirty
                        filters_Callback(handles.filters, [], handles);
                    end
                end
                return;
            end
      end
              
% --- Executes on button press in enabled.
function enabled_Callback(hObject, eventdata, handles)
% hObject    handle to enabled (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

if handles.activeFilter  % Need to update the live copy in spyview
    afd=get(handles.active,'UserData');
    ind=get(handles.active,'Value');
else
    afd=get(handles.filters,'UserData');
    ind=get(handles.filters,'Value');
end
afd{ind}.enabled=get(hObject,'Value');
if handles.activeFilter  % Need to update the live copy in spyview  \
    handles.sv.filters=afd;
    set(handles.active,'UserData',afd);
else
    set(handles.filters,'UserData',afd);
end
